home *** CD-ROM | disk | FTP | other *** search
/ Shareware Games Galore! / Shareware Games Galore!.iso / arcade / gameser5 / lander.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1983-02-14  |  3.4 KB  |  130 lines
  1. 1  <UNK! {0009}>REM----------------------------------------------------
  2. 2  <UNK! {0009}>REM<UNK! {0009}><UNK! {0009}>L  A  N  D  E  R
  3. 3  <UNK! {0009}>REM----------------------------------------------------
  4. 4        REM
  5. 5  <UNK! {0009}>REM<UNK! {0009}><UNK! {0009}>JUNE 16, 1977
  6. 6        REM
  7. 7  <UNK! {0009}>REM<UNK! {0009}>THIS VERSION OF LUNAR LANDER IS COURTESY OF
  8. 8  <UNK! {0009}>REM<UNK! {0009}>THE IMSAI COMPANY.
  9. 9        REM
  10. 300  S3 =0
  11. 310  N3=0
  12. 320  H=500
  13. 430  IF H<=0 THEN 1560
  14. 1010  PRINT"LUNAR LANDING SIMULATION"
  15. 1020  PRINT"----- ------- ----------"
  16. 1030  PRINT"TYPE '1' FOR INSTRUCTIONS";
  17. 1040  INPUT A
  18. 1050  IF A<>1 THEN 1260
  19. 1060  PRINT
  20. 1070  PRINT"YOU ARE LANDING ON THE MOON, YOUR HAVE HAD TO"
  21. 1075  PRINT"ABORT YOUR AUTOMATIC LANDING PLAN AND HAVE TAKEN"
  22. 1077  PRINT"OVER MANUAL CONTROL 500 FT. OVER A GOOD LANDING"
  23. 1080  PRINT"SPOT. YOU ARE FALLING AT 50 FT/SEC, WITH 120 LBS"
  24. 1090  PRINT"OF FUEL TOTAL; DEPLETED AS FOLLOWS:"
  25. 1120  PRINT"(1) AFTER EACH SECOND, THE HEIGHT,VELOCITY AND"
  26. 1130  PRINT"REMAINING FUEL WILL BE REPORTED."
  27. 1140  PRINT"(2) NEXT, A/?/ WILL BE TYPED. ENTER THE NUMBER"
  28. 1150  PRINT"OF LBS OF FUEL YOU WISH TO BURN DURING THE NEXT"
  29. 1160  PRINT"SECOND. EACH LB BURNED WILL SLOW THE DESCENT BY"
  30. 1170  PRINT"1 FT/SEC. 5 LBS OF FUEL WILL MAINTAIN YOUR CUR-"
  31. 1175  PRINT"RENT VELOCITY EXACTLY."
  32. 1180  PRINT"(3) MAXIMUM THRUST YOUR ENGINE CAN SUSTAIN IS"
  33. 1185  PRINT"30 FT/SEC OR 30 LBS OF FUEL/SEC."
  34. 1200  PRINT "(4) WHEN YOU CONTACT THE LUNAR SURFACE, YOUR"
  35. 1210  PRINT"DESCENT ENGINE WILL AUTO-SHUT OFF AND YOU WILL"
  36. 1220  PRINT"BE GIVEN A READOUT OF LANDING CONDITIONS."
  37. 1230  PRINT"(5) IF OUT OF FUEL, ONLY REPORTS UNTIL"
  38. 1235  PRINT"YOU CONTACT THE LUNAR SURFACE"
  39. 1240  T=0
  40. 1245  V1=-5
  41. 1260  PRINT"ALERT! ALERT! DESCENT PROCEEDURE INITIATED!"
  42. 1265  IF T>30 THEN PRINT "HINT; NO BURN TILL SECOND # 4"
  43. 1266  IF T=0 OR V1=0 THEN 1290
  44. 1267  IF T<12 THEN PRINT "HINT; YOU BURNED LATE FOR A NOVICE"
  45. 1290  PRINT"SEC  FEET   SPEED    FUEL       PLOT OF DISTANCE"
  46. 1300  PRINT
  47. 1310  T=0
  48. 1320  H=500
  49. 1330  V=50
  50. 1340  F=120
  51. 1350  PRINT T;TAB(4);H;TAB(12);V;TAB(20);F;TAB(29);
  52. 1352  PRINT "I";TAB(H/15+29);"*"
  53. 1360  INPUT B
  54. 1370  IF B<0 THEN 1500
  55. 1380  IF B>30 THEN 1520
  56. 1390  IF B >F THEN 1540
  57. 1400  V1=V-B+5
  58. 1410  F=F-B
  59. 1420  H = H-0.5*(V+V1)
  60. 1430  IF H<=0 THEN 1560
  61. 1440  T=T+1
  62. 1450  V=V1
  63. 1460  IF F>0 THEN 1350
  64. 1470  IF B=0 THEN 1490
  65. 1480  PRINT TAB(29);"***** OUT OF FUEL *****"
  66. 1490  PRINT T;TAB(4);H;TAB(12);V;TAB(20);F;TAB(29);
  67. 1492  PRINT "I";TAB(H/15+29);"."
  68. 1500  B=0
  69. 1510  GOTO 1400
  70. 1520  B=30
  71. 1530  GOTO 1390
  72. 1540  B=F
  73. 1550  GOTO 1400
  74. 1560  PRINT "*** CONTACT ***";
  75. 1562  IF V1>20 THEN PRINT TAB(29);"0"
  76. 1563  IF V1>25 THEN PRINT TAB(29);"00"
  77. 1564  IF V1>30 THEN PRINT TAB(29);"000"
  78. 1565  IF V1>35 THEN PRINT TAB(29);"0  ."
  79. 1566  IF V1>40 THEN PRINT TAB(29);".    ."
  80. 1567  IF V1>45 THEN PRINT TAB(29);"."
  81. 1570  H =H+0.5*(V+V1)
  82. 1580  IF B=5 THEN 1610
  83. 1585  Z=V*V+H*(10-2*B)
  84. 1587  IF Z<0 THEN 1770
  85. 1588  P=SQR(Z)
  86. 1590  D=(P-V)/(5-B)
  87. 1600  GOTO 1620
  88. 1610  D=H/V
  89. 1620  V1=V+(5-B)*D
  90. 1625  N3 =N3+1
  91. 1630  PRINT "TOUCHDOWN AT "; T+D;"SECONDS"
  92. 1640  PRINT"LANDING VELOCITY=";V1;"FT/SEC"
  93. 1641  IF V1>8 THEN PRINT "OR ";V1*0.5938;" MPH, GROUNDHOG";
  94. 1642  IF V1<>0 THEN 1648
  95. 1644  PRINT "CONGRATULATIONS! A PERFECT LANDING"
  96. 1645  S3=S3+8
  97. 1646  GOTO 1710
  98. 1648  IF V1<85 THEN 1654
  99. 1650  PRINT:PRINT"YOU HAD TO TRY FOR THAT! DO IT RIGHT"
  100. 1652  GOTO 1260
  101. 1654  FOR I1=1 TO 7
  102. 1656  LET S1=2^I1
  103. 1657  IF S1>V1 THEN 1660
  104. 1658  NEXT I1
  105. 1659  GOTO 1790
  106. 1660  PRINT";   SCORE = ";7-I1
  107. 1661  S3 =S3+7-I1
  108. 1662  ON I1 GOTO  1664,1670,1672,1674,1676,1678,1710
  109. 1664  PRINT"NEARLY PERFECT: YOU MUST TRY AGAIN!"
  110. 1666  PRINT"                    ----"
  111. 1668  GOTO  1260
  112. 1670  PRINT "GOOD.  ( YOU COULD WALK AWAY FROM IT )":GOTO 1710
  113. 1672  PRINT"ABOUT LIKE HITTING THE WALL RUNNING HARD.":GOTO 1710
  114. 1674  PRINT"OUCH! THAT HURT! ( THE LANDER )":GOTO 1710
  115. 1676  PRINT"PUH-LEEEZE!  MY SOUFFLE'!":GOTO 1710
  116. 1678  PRINT " YOU SHOULD REREAD THIS:   FOR EACH":GOTO 1160
  117. 1710  PRINT "*"
  118. 1720  PRINT " TYPE 1 FOR ANOTHER MISSION.";
  119. 1730  INPUT A
  120. 1740  IF A=1 THEN 1260
  121. 1745  PRINT "FOR";N3;"MISSIONS, AVERAGE SCORE =";S3/N3
  122. 1746  IF N3>3 AND S3/N3>4.5 THEN PRINT "GOOD WORK!<UNK! {0007}>"
  123. 1750  PRINT " CONTROL OUT"
  124. 1760  END
  125. 1770  PRINT "NEGATIVE ARGUMENT, END OF MISSION."
  126. 1780  GOTO 1710
  127. 1790  PRINT "LOOP OVERFLOW, END MISSION"
  128. 1800  GOTO 1710
  129. 1810  STOP
  130.